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SQL> cl scr 



SQL> <<GetEnameSal Job00>> 

2 DECLARE 

3 PEmpno Emp . Empno%TYPE := &PEmpno; 

4 V_Ename Emp . Ename%TYPE ; 

5 V_Sal Emp . Sal%TYPE; 

6 V_Job Emp. Job%TYPE; 

7 BEGIN 

8 SELECT 

9 Ename, Sal, Job 
INTO 

V_Ename, V_Sal, V_Job 
FROM Emp 

WHERE Empno = PEmpno; 

DBMS_OUTPUT . PUT_LINE ( ' The Details 
DBMS_OUTPUT . PUT_LINE ( 

DBMS_OUTPUT . PUT_LINE ( 

DBMS_OUTPUT . PUT_LINE ( ' The Job of The 
END GetEnameSal JobOO ; 



10 
11 
12 

13 

14 

15 

16 

17 

18 

19 / 

Enter value for pempno : 7839 
The Details of Employee 7839 Are 
The Name of The Employee is : KING 
The Salary of The Employee is : "liyQffWl 
The Job of The Employee is : PF^SSBEOTF 

/ 

PL/SQL procedure successful ly rhoraipleted . 

SQL> / -r ++ % 

Enter value for pempnof 4 ^-/^^* 

The Details of Emp Why e e +7 f te 8 Are . . . 

The Name of The Empirfyafe is : SCOTT 
The Salary of The Emp^lyee is : 3000 
The Job of The .(Embloyee is : ANALYST 




of Employee^ l, | Plft apno | | ' Are , 






) ; 



The Name of The Emp 1 
The Salary of The Eipp Jtev^ 



...4^ 

NIG + +. 



is 



| |V_Ename) 
: ' I I V_Sal) 
I I V_Job) ; 






PL/SQL proc^jfTrl| 

44 



successfully completed. 




SQL> SL 



o 






& 



rnpno 



OR REPLACE PROCEDURE 
eSal JobOO 

Emp . Empno%TYPE 



10 



AS 

V_Ename 

V_Sal 

V_Job 

BEGIN 



Emp . Ename%TYPE ; 
Emp . Sal%TYPE ; 
Emp. Job%TYPE; 
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11 


SELECT 








12 


Ename, Sal, Job 








13 


INTO 








14 


V_Ename, V_Sal, V_Job 








15 


FROM Emp 








16 


WHERE Empno = PEmpno; 








17 


DBMS_OUTPUT . PUT_LINE ( 


'The 


Details of 


Employee ' | | PEmpn 


18 


DBMS_OUTPUT . PUT_LINE ( 


'The 


Name of The Employee is : ' | 


19 


DBMS_OUTPUT . PUT_LINE ( 


'The 


Salary of 


The Employee is : 


20 


DBMS_OUTPUT . PUT_LINE ( 


'The 


Job of The 


Employee is : ' | | 


21 


END GetEnameSal JobOO ; 






i 


22 


/ 






4 V 



Procedure created. 



SQL> DESC 
Name 
Type 



0 B JE C T_N AME 
VARCHAR2 (128) 
SUBOB JECT_NAME 
VARCHAR2 (30) 

OB JECT_ID 
NUMBER 

DATA_OBJECT_ID 
NUMBER 
OB JECT_TYPE 
VARCHAR2 (19) 
CREATED 
DATE 

LAST_DDL_TIME 
DATE 

TIMESTAMP 
VARCHAR2 ( 1 
STATUS 
VARCHAR2 (7 ) 
TEMPCRAF^ _ 
VARCH^'fe + fi^i ? 



USER OBJECTS 





Null? 




t l l^RCHAR2 ( 1 ) 



P 

JsQL> COL OB JECT_NAME FORMAT A20 
SQL> COL OB JECT_TYPE FORMAT A12 
SQL> COL STATUS FORMAt A1 0 
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SQL> SELECT 

2 Object_Name, 

3 Ob ject_Type, 

4 Status 

5 FROM USER_OB JECT S 

6 WHERE OB JECT_NAME = ' GETENAMESAL JOBOO ' ; 



OB JECT_NAME OB JECT_TYPE STATUS 



GE TENAME SAL JOB 0 0 


PROCEDURE VALID 




SQL> 


SELECT 






2 


T0_CHAR (Line, 


99) || '>' , Text 




3 


FROM USER_SOURCE 




H 

O 

! 

o 


WHERE NAME = 


' GETENAMESALJOBOO ' ; 




TEXT ^ 











1 > 

PROCEDURE 






V_Ename Emp . Ename%TYPE; 



0 



& 






<3 
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8 > 

V_Sal 

9 > 

V_Job 

10 > 

BEGIN 



TO_C 

TEXT 



11> 

SELECT 



Emp . Sal%TYPE; 



Emp . Job%TYPE ; 



1 2 > 

Ename, Sal, Job 




1 3 > 

INTO 

1 4 > 

V_Ename, V_Sal, V_Job 
1 5 > 

FROM Emp 



TO C 



1 6> 

WHERE Email o = 'VEmpno ; 

Vl 7j 

DBMSMUfkjT.PUT_LINE ( 'The Details of Employee ' | | PEmpno | | ' Are 

OUTPUT. PUT_LINE ( 'The Name of The Employee is : '||V_Ename); 




DBMS_OUTPUT . PUT_LINE ( ' The Salary of The Employee is : '||V_Sal); 
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2 0 > 

DBMS_OUTPUT . PUT_LINE ( ' The Job of The Employee is : '||V_Job); 



TO_C 

TEXT 



2 1> 

END GetEnameSal JobOO; 



21 rows selected. 

SQL> COL Text FORMAT A100 
SQL> R 

1 SELECT 

2 TO_CHAR (Line, 99 ) | | ' > ' , Text 

3 FROM USER_SOURCE 

4* WHERE NAME = ' GETENAMESAL JOBO 0 

TO_C TEXT 







1 > 
2 > 
3> 
4> 
5> 
6 > 
7> 
8 > 
9> 
10 > 
11> 
1 2 > 
1 3 > 
1 4 > 



PROCEDURE 
GetEnameSal JobOO 
( 



f** \ 

V7 



c\ 



\ 



Emp . Emano 

1 

Eirtp . Ename%TYPE ; 
E^^^L%TYPE; 
4 Emp.^Bb%TYPE; 



PEmpno 

) 

AS 

V_Ename 
V_Sal 
V_Job 
BEGIN 
SELEC 
Ename , 

INT 

^sQrhe, V_Sal, 

1 5> 

16>iWHEkE Empno = PEmpno; 
|1&B«S_0UTPUT . PUT_LINE ( 

TEXT 



^Y^ +J 




V Job 




The Details of Employee ' | | PEmpno | | ' Are 



1 8> DBMS_OUTPUT . PUT_LINE ( ' The Name of The Employee is : ' | |V_Ename); 

1 9> DBMS_OUTPUT . PUT_LINE ( ' The Salary of The Employee is : '||V_Sal); 
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2 0> DBMS_OUTPUT . PUT_LINE ( ' The Job of The Employee is 
2 1> END GetEnameSal JobOO ; 

21 rows selected. 

SQL> cl scr 

SQL> EXECUTE GetEnameSal JobO 0 ( 7 8 3 9 ) 

The Details of Employee 7839 Are. . . 

The Name of The Employee is : KING 
The Salary of The Employee is : 5000 
The Job of The Employee is : PRESIDENT 

PL/SQL procedure successfully completed. 

SQL> EXEC GetEnameSal JobOO (7788) 

The Details of Employee 7788 Are. . . 

The Name of The Employee is : SCOTT 
The Salary of The Employee is : 3000 
The Job of The Employee is : ANALYST 

PL/SQL procedure successfully completed . 

SQL> DECLARE + +- 

2 V_Empno Emp . Empno%TYPE := S^jf^io; 

3 BEGIN 

4 GetEnameSal JobOO (V_Empnft^,^^ 

5 END; 

6 / 

Enter value for gempno 



I I V_Job) ; 




1 






: % 






3 



39 



The Details of Empl oy e^fesjff* Are . . . 

The Name of The Emtft ovef V s : KING 
The Salary of The BmfbT^ee is : 5000 
The Job of The Eqmloy-tfe is : PRESIDENT 

PL/SQL pro ccessfully completed. 






SQL> / ^ 

Entervva^^. for gempno: 7788 
The D^t^Ji^fof Employee 7788 Are. . . 
The 

T , 

ANALYST 





Vf The Employee is : SCOTT 
ry of The Employee is : 3000 



ifh^Jbb of The Employee is 



'/SQL procedure successfully completed. 



SQL> / 

Enter value for gempno: 2234 
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DECLARE 



ERROR at line 1: 



ORA- 01403 
ORA- 06512 
ORA- 06512 



no data found 

at "SCOTT. GETENAMESALJOBOO", line 11 
at line 4 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Empno Emp . Empno%TYPE := SGEmpno; 

3 BEGIN 

4 GetEnameSal JobOO (V_Empno) ; 

5 EXCEPTION 

6 WHEN NO_DATA_FOUND THEN 

7 DBMS_OUTPUT.PUT_LINE ( 'Server Says 
' | | SQLERRM) ; 

8* END; 

SQL> / 

Enter value for gempno : 7839 
The Details of Employee 7839 Are 
The Name of The Employee is : KING 
The Salary of The Employee is : 

The Job of The Employee is : PRSesBEOT 1 

PL/SQL procedure success eted. 




SQL> / 

Enter value for gempn 
Server Says : 100 $nt 




% ^ 



ORA-01403: no data found 



PL/SQL pro cedure* success fully completed. 

\ 



SQL> ED 
Wrote file 



1 m 

2 '■ 





O' 



Emp . Empno%TYPE := SGEmpno; 

3 iBECplN 

»«€EnameSal JobOO (V_Empno) ; 

3 f teXCEPTION 

D* 4 WHEN NO_DATA_FOUND THEN 

DBMS_OUTPUT . PUT_LINE ( ’ Server Says 
| | SQLERRM) ; 

8 RAISE_APPLICATION_ERROR (-20000, 'Application Says ' I I V_Deptno | | ' 
Employee is Not Existing'); 



t \ 6 



' | | SQLCODE | | ' With Message 
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9* END; 

SQL> / 

Enter value for gempno : 7839 

RAISE_APPLICATION_ERROR (-20000, 'Application Says 
is Not Existing'); 

ERROR at line 8: 



I |V_Deptno| | ' Employee 



ORA-06550 

PLS-00201 

ORA-06550 



line 8, column 54: 

identifier 'V_DEPTNO' must be declared 
line 8, column 1: 



PL/SQL: Statement ignored 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Empno Emp . Empno%TYPE := SGEmpno; 

3 BEGIN 

4 GetEnameSal JobOO (V_Empno) ; 

5 EXCEPTION 

6 WHEN NO_DATA_FOUND THEN 

7 DBMS_OUTPUT . PUT_LINE ( ' Server Sa^ 

' | | SQLERRM) ; 

8 RAISE_APPLICATION_ERROR (-20^C|#x ' Application Says ' | | V_Empno | ! ' 
Employee is Not Existing'); 

9* END; 

SQL> / 

Enter value for gempno : Ji 




SQLCODE | | ' With Message 



o 



The Details of Employee f^^^re . . . 

The Name of The Employ^eJ+iit'-i-f? KING 
The Salary of The Mplo wsir is : 5000 
The Job of The EmplW^ is : PRESIDENT 



PL/SQL pro ceduii^%uccess fully completed. 









ORA-01403: no data found 



SQL> / 

Enter va lu e fhr gempno: 2234 
Serve^ Sfejfe . : 100 With Message 

DECLM^hW 7 

* r> 

line 1 : 

L-yS000 : Application Says 2234 Employee is Not Existing 
^^13417^0 6512: at line 8 



Q 



SQL> cl scr 
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SQL> ED 

Wrote file afiedt.buf 



<<EmpInsert>> 

DECLARE 

P_Empno Emp . Empno%TYPE := &P_Empno; 
P_Ename Emp . Ename%TYPE := ' 4P_Ename ' ; 
P_Sal Emp . Sal%TYPE := &P_Sal; 

P_Deptno Emp . Deptno%TYPE := &P_Deptno; 
P_Job Emp . Job%TYPE := '&P_Job'; 

P_Comm Emp . Comm%TYPE := &P_Comm; 



9 P_HireDate Emp . HireDate%TYPE : 

10 P_MGR Emp . MGR%TYPE := &P_MGR; 

11 BEGIN 

12 INSERT INTO 

13 Emp (Empno, Ename, Sal, Deptno, 

14 VALUES (P_Empno, UPPER (P_Ename) , 
P_Comm, P_HireDate, P_MGR) ; 

15 EXCEPTION 

WHEN DUP_VAL_ON_ INDEX THEN 
RAISE_APPLICATION_ERROR (-20001, 
exists ' ) ; 

WHEN OTHERS THEN 
RAISE_APPLICATION_ERROR (-20011 



= ' &P_HireDate 



Job, Comm, Hi 
P_Sal, P_De 



16 

17 

18 

19 

20 
21 * 

SQL> 



END; 

/ 

Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
Enter value 
Enter value 



PL/SQL pro 








MGR) 

>PER (P_Job) 



already 



for p_empno : 793$ r ' + 

for p_ename : SURft|% ^ 
for p_sal : 2^ofe^rp +J 
for p_deptno#+30*%. 
for p_job 
for p_romm : fej FLL 
for p_lTinHecfet e : 25-NOV-14 
for b mgHgr7 6 98 

ccessfully completed. 



SQL> 



roli^back; 







Roll! KV ^^mplete . 



O 



s^^Wate 



OR REPLACE PROCEDURE 



* Cltemp Insert 
3 ( 



4 P_Empno Emp . Empno%TYPE, 

5 P_Ename Emp . Ename%TYPE, 

6 P_Sal Emp . Sal%TYPE, 

7 P_Deptno Emp . Deptno%TYPE, 
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8 P_Job Emp . Job%TYPE, 

9 P_Comm Emp . Comm% TYPE , 

10 P_HireDate Emp . HireDate%TYPE, 

11 P_MGR Emp . MGR%TYPE 

12 ) 

13 AS 

14 BEGIN 

15 INSERT INTO 

16 Emp (Empno, Ename, Sal, Deptno, 

17 VALUES (P_Empno, UPPER (P_Ename) , 
P_Comm, P_HireDate, P_MGR) ; 

18 EXCEPTION 

19 WHEN DUP_VAL_ON_ INDEX THEN 

20 RAISE_APPLICATION_ERROR (-20001, 

2 1 exists ' ) ; 

22 WHEN OTHERS THEN 

23 RAISE_APPLICATION_ERROR (-20011, 

24 END; 

25 / 

Procedure created. 

SQL> EXEC Emplnsert (7935, ' SURESH 

BEGIN Emplnsert (7935, 'SURESH', 20 
END; 



ERROR at line 1: 
ORA-20011 : ORA-02291: i 
- parent key not found 
ORA-06512: at "SCOTT, 
ORA-06512: at line 



Job, Comm, HireDate, MGR) 
P_Sal, P_Deptno, UPPER i 



' Employee 



SQLERRM) 



SQL> ED 
Wrote file 




E OR^EPLACE PROCEDURE 




'CLERK', NULL, SYSDATE, 
NULL, SYSDATE, 30) 



( SCOTT. EMP_SELF_KEY) violated 



line 



ert 



O 



I' 



1 
2 

4 1 P Arapno Emp . Empno%TYPE, 
*+p?Ename Emp . Ename%TYPE, 
C P_Sal Emp . Sal%TYPE, 



10 

11 



P_Deptno Emp . Deptno%TYPE, 
P_Job Emp . Job%TYPE , 

P_Comm Emp . Comm%TYPE , 

P_HireDate Emp . HireDate%TYPE, 
P_MGR Emp . MGR%TYPE 
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12 ) 

13 AS 

14 BEGIN 

15 INSERT INTO 

16 Emp (Empno, Ename, Sal, Deptno, Job, Comm, HireDate, MGR) 

17 VALUES (P_Empno, UPPER (P_Ename) , P_Sal, P_Deptno, UPPER(P_Job) 
P_Comm, P_HireDate, P_MGR) ; 

18 EXCEPTION 

19 WHEN DUP_VAL_ON_ INDEX THEN 

20 RAISE_APPLICATION_ERROR (-20001, 'Employee already 

2 1 exists ' ) ; 

22 WHEN OTHERS THEN 

23 RAISE_APPLICATION_ERROR (-20011, SQLERRM) ; 

2 4* END ; ♦ 

SQL> EXEC Emplnsert (7935, ' SURESH ' , 2000, 30, ' CL^RK^ \fcJULL, SYSDATE, 

7698) 

PL/SQL procedure successfully completed. 

SQL> SELECT * FROM Emp 
2 WHERE Empno = 7935; 

EMPNO ENAME 
COMM DEPTNO 



'{£> 



o 



7935 SURESH 
30 

SQL> ROLLBACK; 

Rollback complete. 

SQL> cl scr 

SQL> decla: 

2 TYPE E 

3 IS RECOR] 

4 % ( 

5 li®ni|»^mp . Empno%TYPE , 

6 iEn^be Emp . Ename%TYPE , 

Emp. Sal%TYPE, 

if* C f feeptno Emp . Deptno%TYPE, 

\ r Job Emp. Job%TYPE, 

i. r0 Comm Emp . Comm%TYPE, 

11 HireDate Emp . HireDate%TYPE, 

12 MGR Emp . MGR%TYPE 

13 ) ; 
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14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
Enter 
Enter 
Enter 
Enter 
Enter 
Enter 
Enter 
Enter 



V_EmpRecord EmpRecord; 

BEGIN 

V_EmpRecord . Empno := &SEmpno; 

V_EmpRecord . Ename := 1 SSEname' ; 

V_EmpRecord . Sal := SSSal; 

V_EmpRecord . Deptno := SSDeptno; 

V_EmpRecord . Job := 'SSJob'; 

V_EmpRecord . Comm := &SComm; 

V_EmpRecord . HireDate := SSHireDate; 

V_EmpRecord . MGR := &SMGR; 

Emplnsert 

( 

V_EmpRecord. Empno, 

V_EmpRecord. Ename, 

V_EmpRecord . Sal , 

V_EmpRecord . Deptno , 

V_EmpRecord . Job, 

V_EmpRecord . Comm, 

V_EmpRecord . HireDate, 

V_EmpRecord . MGR 

) ; 

END; 

/ 

value 
value 
value 
value 
value 
value 
value 
value 



for 

for 

for 

for 

for 

for 



sempno: 7935 
sename: SURESH 
ssal: 2000 
sdeptno: 30 c 
sjob: CLERK 




scomm : 



NUL 






for shiredat^C S^tg 



DATE 



for smgr 




+ 4-d 




PL/SQL procedure si!b*P§^piTully completed. 

1 ** 

SQL> ROLLBACK; ~ \ 

Rollback coM.efc, * 

tr 

SQL> «1 ©t. 

SQL>^ED % 

W^%Xjfle af iedt . buf 

‘ 0 

1 <<EmpDataDisplay>> 

DECLARE 

3 V_RowCount NUMBER (4); 

4 TYPE GenericCursor 

5 IS REF CURSOR; 
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10 



V_GenericCursor GenericCursor; 

TYPE TablesRecordType IS RECORD 

( 

EmpRecord Emp%ROWTYPE 

) ; 

11 V_EmpRecordType TablesRecordType; 

12 BEGIN 

13 OPEN V_GenericCursor 

14 FOR 

15 SELECT * FROM Emp; 

16 DBMS_OUTPUT.PUT_LINE (RPAD (LP AD ( 'Employees Informatio 
80, '*')); 

17 DBMS_OUTPUT.PUT_LINE (RPAD ( ' - ' , 80,'-')); 

18 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8)|| RPAD ( ' E*ame 

12)| ! RPAD ('Job', 12)| | RPAD ( ' Deptno ' , 

19 8) | |RPAD ( 'Mgr' , 1 0 ) | | RPAD ( ' Hiredate ' , 12)||RP' 

12)| | RPAD ( 'Comm' , 10) ) ; 

20 DBMS_OUTPUT.PUT_LINE (RPAD ( '- ' , 80,'-')); 

21 LOOP 

22 

23 

24 



A’ 









/V 



oo 






FETCH V_GenericCursor INTO V_En1^^(co<jType . EmpRecord; 
EXIT WHEN V_GenericCursor%NOTEj-(i^Nl^/‘ l Y 
V_RoWCount := V_GenericCurslrfcl^J£OUNT; 

25 DBMS_OUTPUT.PUT_LINE (RPAD (V_EmpSto®prd*fy"pe. EmpRecord. Empno, 8) 
2 6 | | RPAD ( V_EmpRecordType . EmpRecord . EnWe, 

12) | | RPAD ( V_EmpRecordType . EmpRec^rCS^Job, 

2 7 12)| | RPAD (V_EmpRecordType .B*npRe^>rd . Deptno, 



28 



8) | | NVL (TO_CHAR (RPAD ( V_fmj%^|)FdType . EmpRecord . MGR, 10) ) , 'No 



2 9 Manager ' ) | I RPAD (V EmpR a^d wTH^pe . EmpRecord . H i redate . 

3 0 12)| | RPAD (V_EmpRecoxJlfpg^fnpRecord. Sal, 

31 12) | | NVL (TO_CHAR (RPilC (vSpmpRecordType . EmpRecord . Comm, 12) ) , ' -NA- ' ) ) ; 

/xV 



32 END LOOP; 

33 CLOSE V_Gener 

34 DBMS_OUTPUT . P 

35* END EmpData^i 
36 / 

VcVcVcVcVcVcVcVcVcVc VcVcVcVcVcVcVcVcVc |h ^ Q ^ 0 0 0 

^ ^ f o rmat ion 'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k 







(V_RowCount | I ' Rows Processed So Far. . . ' ) ; 



EmpN Ojj + -r^^arffie 

CommC . + 4 



Job 



Deptno Mgr 



Hiredate 



Sal 




KING 

fnagerl7-NOV-81 
'698 BLAKE 
-NA- 



P RESIDENT 10 No 

5000 -NA- 

MANAGER 30 7839 



01 -MAY- 81 



2850 
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7782 


CLARK 


MANAGER 


10 


-NA- 

7566 


JONES 


MANAGER 


20 


-NA- 

7654 


MARTIN 


SALESMAN 


30 


1400 

7499 


ALLEN 


SALESMAN 


30 


300 

7844 


TURNER 


SALESMAN 


30 


0 

7900 


JAMES 


CLERK 


30 


-NA- 

7521 


WARD 


SALESMAN 


30 


500 

7902 


FORD 


ANALYST 


20 


-NA- 

7369 


SMITH 


CLERK 


20 


-NA- 

7788 


SCOTT 


ANALYST 


20 


-NA- 

7876 


ADAMS 


CLERK 


20 


-NA- 

7934 


MILLER 


CLERK 


10 



7839 
7839 
7698 
7698 
7698 
7698 
7698 
7566 
7902 
7 



09-JUN-81 
02 -APR- 81 
28-SEP-81 
2 O-FEB-8 1 
08-SEP-81 



2450 

2975 

1250 

160 



150 

0 3 -DEC- 
22-FEB-81 1 

|^7^EC-8 0 






& 



+ +^ ' 






+±. ++ 

N-, ^ 



8 



-NA- 

14 Rows Processed So Far. . . 




-DEC-82 
12- JAN- 83 
23- JAN-82 



250 

3000 

800 

3000 

1100 

1300 



\ 



x\ 







PL/SQL procedure successfully 
SQL> ED 

Wrote file afiedt.buf 

1 CREATE OR REP ^^CE^^R^tE DURE EmpDataDisplay 

3 V_RowCount NUMBE#f4 ) ; 

TYPE Genejjlctursor 

IS REEpffeS* 

V_Gene^j5 Cursor GenericCursor; 

sRecordType IS RECORD 

io 

l ! f |V ¥r«mpRecordType TablesRecordType ; 

*12 ffeEGIN 



4 

5 

6 

7 TYPELTabl 

icord Emp%ROWTYPE 



O 



\ r4 FOR 



3 OPEN V GenericCursor 



15 SELECT * FROM Emp; 

16 DBMS_OUTPUT.PUT_LINE (RPAD (LP AD ( 'Employees Information', 49, '*'), 

80, '*')); 
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17 DBMS_OUTPUT.PUT_LINE (RPAD ( , 80,'-')); 

18 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8)|| RPAD ( ' Ename ' , 

12)| | RPAD ('Job', 12)| | RPAD ( ' Deptno ' , 

19 8) | |RPAD ( 'Mgr' , 1 0 ) | | RPAD ( ' Hiredate ' , 12 ) | | RPAD ( ' Sal ' , 

12)| | RPAD ( 'Comm' , 10) ) ; 

20 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 80,'-')); 

21 LOOP 

22 FETCH V_GenericCursor INTO V_EmpRecordType . EmpRecord; 

23 EXIT WHEN V_GenericCursor%NOTFOUND; 

24 V_RoWCount := V_GenericCursor%ROWCOUNT; 

2 5 DBMS_OUTPUT . PUT_LINE (RPAD (V_EmpRecordType . EmpRecord . 1 
26 | | RPAD (V_EmpRecordType . EmpRecord . Ename, -j %rfr> ' ' 

12) | | RPAD ( V_EmpRecordType . EmpRecord . Job, ^ 

2 7 12)| | RPAD (V_EmpRecordType . EmpRecord . Deptno, ♦ 

8) | | NVL (TO_CHAR (RPAD (V_EmpRecordType . EmpRecord . 10)T, '1 
Manager') | | RPAD (V_EmpRecordType . EmpRecord . Hirid^_e_j + -» 

12) | | RPAD (V_EmpRecordType . EmpRecord . Sal , ! Y, 

12) | | NVL (TO_CHAR (RPAD ( V_EmpRecordType . Emp ff^ \r\ Comm, 12) ) , ' -NA- ' ) ) ; 
END LOOP; 

CLOSE V_GenericCursor; , + , + 

DBMS_OUTPUT.PUT_LINE (V_RowCount | | ' R^*pl\£^o cessed So Far. . . ' ) ; 

END EmpDataDi splay; lar g 

Jr '"'JjJSr 




28 

29 

30 

31 

32 

33 

34 
35 J 
36 



'No 






/ 






Procedure created. 



SQL> EXEC EmpDataDisplay 









C\ 



'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k'k q cj 

q 'k'k'k'k'k'k'k'k'k 

- - - % 
^ 



EmpNo 

Comm 



Ename 



0^ 



7839 



-NA- 



(jAKe\t 



cs 



7|m R tR" JONES 
"54 MARTIN 



C N< 

Oloo 



49! 

300 



ALLEN 



MANAGER 

MANAGER 

MANAGER 

SALESMAN 

SALESMAN 



Deptno Mgr 



KI PRESIDENT 

Manager 17-N0^8J: \()00 

7698 
-NA- < 

77 82 ^++1 



10 

-NA- 

30 

10 

20 

30 

30 



No 

7839 

7839 

7839 

7698 

7698 



Hiredate 



01 - MAY- 81 
09-JUN-81 

02 - APR- 81 
28-SEP-81 
2 O-FEB-8 1 



Sal 



2850 

2450 

2975 

1250 

1600 
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7844 


TURNER 


SALESMAN 


0 

7900 


JAMES 


CLERK 


-NA- 

7521 


WARD 


SALESMAN 


500 

7902 


FORD 


ANALYST 


-NA- 

7369 


SMITH 


CLERK 


-NA- 

7788 


SCOTT 


ANALYST 


-NA- 

7876 


ADAMS 


CLERK 


-NA- 

7934 


MILLER 


CLERK 


-NA- 
14 Rows 


Processed 


So Far . . . 



PL/SQL procedure successfully 
SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 




1 <<DeptDataDisplay>> ^ ^ 

2 DECLARE ♦<_ 

3 V_RowCount NUMBER (4) : jA pr 

4 TYPE GenericCursor ''-tj. J 

5 IS REF CURSOR; 4^. ' t t + 

6 V_GenericCursor Gf^Jfatfltursor; 

7 TYPE Table sRed€rdType : IS RECORD 

9 DeptRecord DepiiJkoWTYPE 
10 ) ; ^ \ 

11 v DpnfJpV ^p flLnp TablesRecordType; 

12 BEGIN 4 

13 OP EN V G^mericCursor 

14 +|’o?0 J _ 

15 * FROM Dept; 

16 f~DMB_OUTPUT . PUT_LINE (RPAD (LPAD ( ' Department Information' , 2! 

1 1 p DBMS_OUTPUT . PUT_LINE (RPAD 40,'-')); 

DBMS_OUTPUT.PUT_LINE (RPAD ( ' Deptno ' , 8)|| RPAD ( ' Dname ' , 



) , 



o 



| | RPAD ( 'Loc' , 12) ) ; 

19 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 

20 LOOP 

21 FETCH V_GenericCursor INTO V_DeptRecordType . DeptRecord; 
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22 EXIT WHEN V_GenericCursor%NOTFOUND; 

23 V_RoWCount := V_GenericCursor%ROWCOUNT; 

24 DBMS_OUTPUT . PUT_LINE (RPAD ( V_DeptRecordType . DeptRecord . Deptno , 8) 
| | RPAD ( V_DeptRecordType . DeptRecord . Dname , 

12) ! | RPAD (V_DeptRecordType . DeptRecord . Dname, 12)); 

25 END LOOP; 

26 CLOSE V_GenericCursor; 

27 DBMS_OUTPUT.PUT_LINE (V_RowCount M ' Rows Processed So Far . . . 

28* END DeptDataDisplay; 

SQL> / 

****** * Department Information* * ****************** 



Deptno Dname 



Loc 



10 

20 

30 

40 



ACCOUNTING ACCOUNTING 
RESEARCH RESEARCH 

SALES SALES 

OPERATIONS OPERATIONS 



4 Rows Processed So Far. . . 

PL/SQL procedure successfully completed 
SQL> ED 

Wrote file afiedt.buf 

1 CREATE OR REPLACE PROCEDURAL ^pt?DataDisplay 

2 AS ^ r 

3 V_RowCount NUMBER (4) 

4 TYPE GenericCursor 

5 IS REF CURSOR; 

6 V_GenericCursor 

7 TYPE TablesRe^brdT 

8 ( 

9 DeptRecord Depi^ROWTYPE 

) ; Z 




10 




Mursor; 
IS RECORD 



11 V Pepfa^ ^^ lyDe TablesRecordType; 



12 

13 

14 

15 

16 



BEGIN X J ^ 

OP EN V. G^mericCursor 

l/l * FROM Dept; 

.OUTPUT. PUT_LINE (RPAD (LPAD ( 'Department Information' 




29, 



) , 



> 1I J+DBMS_OUTPUT . PUT_LINE (RPAD ( 



40, '-')); 



f+«=h '+118^ DBMS_OUTPUT.PUT_LINE (RPAD ( 'Deptno' , 8)|| RPAD (' Dname ' , 



o 



| | RPAD ( 'Loc' , 12) ) ; 

19 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 

20 LOOP 

21 FETCH V_GenericCursor INTO V_DeptRecordType . DeptRecord; 
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22 EXIT WHEN V_GenericCursor%NOTFOUND; 

23 V_RoWCount := V_GenericCursor%ROWCOUNT; 

24 DBMS_OUTPUT . PUT_LINE (RPAD ( V_DeptRecordType . DeptRecord . Deptno , 8) 
| | RPAD ( V_DeptRecordType . DeptRecord . Dname , 

12) ! | RPAD (V_DeptRecordType . DeptRecord . Dname, 12)); 

25 END LOOP; 

26 CLOSE V_GenericCursor; 

27 DBMS_OUTPUT.PUT_LINE (V_RowCount M ' Rows Processed So Far . . . 

28* END DeptDataDisplay; 

SQL> / 

Procedure created. 

SQL> EXEC DeptDataDisplay 

****** * Department Information* * ****************** 

Deptno Dname 



10 

20 

30 

40 




ACCOUNTING ACCOUNTING 
RESEARCH RESEARCH 

SALES SALES 

OPERATIONS OPERATIONS 



4 Rows Processed So Far. . . 

PL/SQL procedure successfully 
SQL> ED 

Wrote file afiedt.buf 

1 <<SalGradeDataDispl 

2 DECLARE 

3 V_RowCount NUgBER 

4 TYPE GenericC 

5 IS REF CURSOR; 

6 V_Generic or GenericCursor; 

7 TYPE Ti^^^i^ordType IS RECORD 

SalGrach^ecord SalGrade%ROWTYPE 
"/^c&iGftadeRecordType TablesRecordType; 




OPEN V_GenericCursor 
FOR 

SELECT * FROM SalGrade; 
r 6 DBMS_OUTPUT.PUT_LINE (RPAD (LPAD ( 'Salary Grade Information', 

> 9 , .*.) , 49, '*')); 

17 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 
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18 DBMS_OUTPUT.PUT_LINE (RPAD ( 'Grade' , 8)|| RPAD ( ' LoSal ' , 
12)|| RPAD ( ' HiSal ' , 12) ) ; 

19 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 

20 LOOP 

21 FETCH V_GenericCursor INTO 
V_SalGradeRecordType . SalGradeRecord; 

22 EXIT WHEN V_GenericCursor%NOTFOUND; 

23 V_RoWCount := V_GenericCursor%ROWCOUNT; 

24 






& 



DBMS_OUTPUT . PUT_LINE (RPAD (V_SalGradeRecordType . SalGrad^^elo] 
8) | | RPAD (V_SalGradeRecordType . SalGradeRecord . LoSal , 



?rade 



12 ) | | RPAD ( V_SalGradeRecordType . SalGradeRecord. HiSal, 12 M 

25 END LOOP; * 

26 CLOSE V_GenericCursor; 

27 DBMS_OUTPUT.PUT_LINE (V_RowCount | | 

Far ...'); 

28* END SalGradeDataDisplay; 

SQL> / 

*****Salary Grade Information************' 



. 









Row^ Pgrofcess 

I r — mi 



sea 



So 



— 



Grade 



LoSal 



HiSal 



1 


700 


1200 


2 


1201 


1400 


3 


1401 


2000 


4 


2001 


3000 


5 


3001 


9999 


5 Rows 


Processed 


So Far. 


PL/SQL 


procedure 


success 


SQL> ED 




Wrote 


file afiedt 







;ompleted. 



1 CREATE ORJBEXLACE PROCEDURE SalGradeDataDisplay 

2 AS 

3 V_RowC^&tVlUroER (4) ; 

4 TYP E, G engltacCursor 

5 CS iSfe 1 CURSOR; 

6 JiS&m icCursor GenericCursor; 

7 fTYR^ TablesRecordType IS RECORD 

‘ i |+ SalGradeRecord SalGrade%ROWTYPE 



HlO ) ; 



o 



V_SalGradeRecordType TablesRecordType ; 

12 BEGIN 

13 OPEN V_GenericCursor 

14 FOR 
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15 SELECT * FROM SalGrade; 

16 DBMS_OUTPUT . PUT_LINE (RPAD (LPAD ( ' Salary Grade Information', 

29, , 49, '*')); 

17 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 

18 DBMS_OUTPUT.PUT_LINE (RPAD ( 'Grade' , 8)|| RPAD ( ' LoSal ' , 

12)|| RPAD ( ' HiSal ' , 12) ) ; 

19 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 40,'-')); 

20 LOOP 

21 FETCH V_GenericCursor INTO 
V_SalGradeRecordType . SalGradeRecord; 

22 EXIT WHEN V_GenericCursor%NOTFOUND; 

23 V_RoWCount := V_GenericCursor%ROWCOUNT; 

24 

DBMS_OUTPUT . PUT_LINE (RPAD (V_SalGradeRecordType *SalGf**deRecord . Grade 
,8) | | RPAD (V_SalGradeRecordType . SalGradeRecord . LoSal /*+ + 

12 ) | | RPAD (V_SalGradeRecordType . SalGradeRecord. HiSa ^ t^ 2 ; 

2 5 END LOOP; 




CLOSE V_GenencCursor; 
DBMS_OUTPUT . PUT_LINE ( V_RowCount 



26 
27 

Far ...'); 

28* END SalGradeDataDisplay; 
SQL> / 

Procedure created. 




it-y 'fgfefc 



^Processed So 






SQL> EXEC SalGradeDataDisplay; 
*****Sal ar y Grade Information* 

, -A 



c\ 



▼ * kkkkkkkkkkkk 



Grade LoSal HiSal +J 

_. 

1 700 1 2fto+ -Vd 

2 1201 ;'140(> 

3 1401 Wftcto 

4 2 0 01 A 3mo 

5 3001 ^ \ 9999 

5 Rows Pro<afs$L&^itB Far . . . 

PL/SQL pmcedwt successfully completed. 



o 



SQL> 

2 fv_T&ble VARCHAR2 (30) := UPPER ( ' &GiveTableName ' ) ; 

legal Request EXCEPTION; 

J €> EGIN 

\ 5 IF V_Table = 'EMP ' THEN 
* u5 EmpDataDi splay; 

7 ELSE 

8 IF V_Table = 'DEPT' THEN 

9 DeptDataDisplay; 
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10 ELSE 

11 IF V_Table = 'SALGRADE' THEN 

12 SalGradedataDisplay; 

13 ELSE 

14 RAISE E_IllegalRequest; 

15 END IF; 

16 END IF; 

17 END IF; 

18 EXCEPTION 

19 WHEN E_IllegalRe quest THEN 

20 DBMS_OUTPUT . PUT_LINE ( ' Sorry You Either Do Not Have P 
The Table OR The Requested Table Does Not Exist. '); 

21 END; 

22 / 

Enter value for givetablename : Emp 

mp 1 o y o c 3 

j rm at ion******************************* 



EmpNo 

Comm 



Ename 



Job 



7839 KING 

Managerl7-NOV-81 
7698 BLAKE 

-NA- 
7782 
-NA- 
7566 
-NA- 
7654 
1400 
7499 
300 
7844 
0 

7900 
-NA- ^ 

7521 

500 1 > 



CLARK 
JONES 
MARTIN 
ALLEN 
TU 
1MES 



PRESIDENT 10 
5000 

MANAGER ,*30^ ^ 
MANAGER , i , | + +i 




Deptno M t 



~ 






■ 

+ + 

manaS&r % 

0J1ESMAH 



3 



<3 



7a^a. i '-+T-t J 'FORD 

& 

788 
-NA- 



SMITH 

SCOTT 



1SMAN 
SALESMAN 
CLERK 
SALESMAN 
ANALYST 
CLERK 
ANALYST 



20 

30 

30 

30 

30 

30 

20 

20 

20 



839 


01— MAY— 81 


2850 


839 


09-JUN-81 


2450 


839 


02 -APR- 81 


2975 


698 


28-SEP-81 


1250 


698 


2 O-FEB-8 1 


1600 


698 


08-SEP-81 


1500 


698 


03-DEC-81 


950 


698 


22-FEB-81 


1250 


566 


03-DEC-81 


3000 


902 


17-DEC-80 


800 


566 


09-DEC-82 


3000 
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7876 

-NA- 


ADAMS 


CLERK 


20 


7788 


7934 

-NA- 


MILLER 


CLERK 


10 


7782 



14 Rows Processed So Far. . . 



PL/SQL procedure successfully completed. 



SQL> / 

Enter value for givetablename : Dept 

****** * Department Information* * ****************** 



Deptno Dname Loc 



12- JAN- 83 1100 




10 


ACCOUNTING 


ACCOUNTING 


20 


RESEARCH 


RESEARCH 


30 


SALES 


SALES 


40 


OPERATIONS 


OPERATIONS 


4 Rows 


Processed So 


Far . . . 



PL/SQL procedure successfully c 
SQL> cl scr 




SQL> 

2 

3 

4 

5 

6 
7 



10 

11 

12 

13 






DUREt^-tr 
■& 



CREATE OR REPLACE PROCEDUF 
MyBonus 
AS 

CURSOR DeptCursor 
IS 

SELECT Deptno 
FROM Dept; 

BEGIN 

FOR R_GroupBor 
UPDATE Emp . 

SET Sal =^ai * 0.95 

WHERE R_GroupBonus . DeptNo; 

DBMS_OCT(?Ul. PFrT_LINe ( 1 The Bonus Information Updated is 



DeptCursor LOOP 



I | R_Gro 
1 4 «N: 



15 

16 




Bonrh^Deptno) ; 
’ OP; 



a 



ure 



onus ; 



created. 






> EXEC MyBonus 
he Bonus Information Updated is 10 
The Bonus Information Updated is 20 
The Bonus Information Updated is 30 
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The Bonus Information Updated is 40 
PL/SQL procedure successfully completed. 

SQL> SELECT * FROM Emp; 

EMPNO ENAME JOB MGR HI REDATE 

COMM DEPTNO 



SAL 



7839 KING 

7698 BLAKE 

7782 CLARK 

7566 JONES 

7654 MARTIN 
30 

7499 ALLEN 
30 

7844 TURNER 
30 

7900 JAMES 

7521 WARD 
30 

7902 FORD 



10 
30 
10 
20 

1400 
300 
0 

30 
500 
20 
20 
20 
20 
10 

14 rQK&h'i'eilfected • 

+4 

LBACK; 

ack complete. 

3QL> UPDATE Emp 

2 SET Sal = Sal * 0.95; 




17 -NOV- 81 
7839 01 -MAY- 81 









& 



2i o: 






7839 0 9-JUN^81. 23 






7839 02-AP 






— 






7698 «8^^^1 
7 6|Bw%-^EB-81 

9o f t?8-SEP-81 

+ +- 

7698 03-DEC-81 
7698 2 2-FEB-8 1 
7566 03-DEC-81 
7902 17-DEC-80 
7566 09-DEC-82 
7788 12- JAN-8 3 
7782 23-JAN-82 



^ 2826.25 

1187.5 
1520 
1425 
902.5 
1187.5 
2850 
760 
2850 
1045 
1235 
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14 rows updated. 

SQL> SELECT * FROM Emp; 





EMP NO 


ENAME 


JOB 


COMM 


DEPTNO 






7839 


KING 


PRESIDENT 


10 


7698 


BLAKE 


MANAGER 


30 


7782 


CLARK 


MANAGER 


10 


7566 


JONES 


MANAGER 


20 


7654 


MARTIN 


SALESMAN 


1400 




30 






7499 


ALLEN 


SALESMAN 


300 




30 






7844 


TURNER 


SALESMAN 


0 




30 






7900 


JAMES 


CLERK 



MGR HIREDATE 









17 -NOV- 81 
7839 01 -MAY- 81 
7839 09-JUN-81 



vx 



7839 02-APR^81 



! •••: 



232 1 ^, 
2 8 2 b^2 5 



7 6 98 2 8-SE^l'P, 



E C\ 

7698 «0^B.-81 

vw 

7 6|BUt-%-^EP-81 

rj -H%9lW3- 



3-DEC-81 



1187.5 

1520 

1425 

902.5 



30 

500 

20 

20 

20 

20 

10 




Wrote file afiedt.buf 



> 

7698 


2 2-FEB-8 1 


1187.5 


7566 


03-DEC-81 


2850 


7902 


17-DEC-80 


760 


7566 


09-DEC-82 


2850 


7788 


12- JAN-8 3 


1045 


7782 


23-JAN-82 


1235 



7521 WARD 
30 

7902 FORD 
7369 SMITH 
7788 SCOTT 



SALESMAN 



ANALYSl 




7876 ADAMS 
7934 
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10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 




CREATE OR REPLACE PROCEDURE 
EmpBonus 
AS 

CURSOR DeptCursor 
IS 

SELECT Deptno 
FROM Dept; 

BEGIN 

FOR R_GroupBonus IN DeptCursor 
LOOP 
DECLARE 

E_JobNot Found EXCEPTION; 

CURSOR EmpCursor 
IS 

SELECT * 

FROM Emp 

WHERE Deptno = R_GroupBonus . Deptno; 

BEGIN 

FOR R_EmpCursor IN EmpCursor 
LOOP 

IF R_EmpCursor . Job = 'PRESIDENT' 

THEN 

UPDATE Emp 

SET Sal = Sal + (Sal * 0.40) 

WHERE Empno = R_EmpCursor 

IF R_EmpCursor. Jdb. %+mAtIAGER ' 

THEN > .tJ V pt 

UPDATE Emp 

SET Sal = Sa 1 * 0.35) 

WHERE EiTOnof^JWTtirfmpCursor . Empno; 

IIJR EfoJbrsor . Job = 'ANALYST' 

TBif u ' ' 
aUPD P*3m Emp 

%ET Sal = Sal + (Sal * 0.30) 

1ERE Empno = R_EmpCursor . Empno; 

ISE 

IF R_EmpCursor . Job = 'SALESMAN' 

THEN 

UPDATE Emp 

SET Sal = Sal + (Sal * 0.25) 

WHERE Empno = R_EmpCursor . Empno; 

ELSE 

IF R_EmpCursor . Job = 'CLERK' 

THEN 

UPDATE Emp 

SET Sal = Sal + (Sal * 0.20) 
WHERE Empno = R_EmpCursor . Empno; 



ELSE 
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49 




ELSE 


50 




RAISE E_ 


51 




END IF; 


52 


END 


IF; 


53 


END IF; 




54 


END IF; 




55 


END IF; 




56 


END LOOP; 




57 


EXCEPTION 




58 


WHEN E_ JobNotFound THEN 


59 


NULL; 




60 


END; 




61 


DBMS_OUTPUT . PUT_LINE ( 


' The Bonus 


' 1 |R_ 


.GroupBonus . Deptno) ; 




62 


END LOOP; 




63* 


END EmpBonus; 




SQL> 


/ 





Procedure created. 



SQL> cl scr 
SQL> ROLLBACK; 



JobNotFound; 




a 



Rollback complete. 

SQL> cl scr 

<<OddNumber>> 
DECLARE 
Numl NUMBER : 

Num2 NUMBER : 

MyNum NUMBER ( 

BEGIN a 

MyNum : = 

8 WHILE ^ 

9 IF MOD 

10 DBMS OUT 

11 %ncOF; 

12 M^(£*h£= MyNum +1; 

13 lENlN-LOOP ; 

Center value for numl : 1 0 

%nter value for num2 : 2 0 




>4 Num2 LOOP 
Ni|n,f) ! = 0 THEN 

. PUT_LINE ( 'The Odd Number 



uhe 


Odd 


Number 


11 


The 


Odd 


Number 


13 


The 


Odd 


Number 


15 



' | ! MyNum) ; 
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The Odd Number : 17 
The Odd Number : 19 



PL/SQL procedure successfully completed. 



SQL> / 

Enter value for 
Enter value for 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 



numl 

num2 

15 

17 

19 

21 

23 

25 

27 

29 



15 

30 



PL/SQL procedure successfully completed. 



SQL> cl scr 

SQL> CREATE OR REPLACE PROCEDURE 

2 OddNumber (Numl NUMBER, Num2 

3 IS 

4 MyNum NUMBER ( 4 ) ; 

5 BEGIN 

6 MyNum : = Numl ; 

7 WHILE MyNum < Num2 

8 IF MOD (MyNum, 2) 

9 dbms_output.put_lin: 

10 End IF; 

11 MyNum := MyNu 

12 END LOOP; 

13 END; 

14 / 




Odd Number 



SQL> 

Wrote 




| | MyNum) 



Procedure 



5*n«Ifiedt . buf 



o 



BEfiATE OR REPLACE PROCEDURE 
ddNumber (Numl IN NUMBER, Num2 IN NUMBER) 



4 MyNum NUMBER (4) ; 

5 BEGIN 

6 MyNum : = Numl ; 

7 WHILE MyNum < Num2 LOOP 
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' | | MyNum) 



8 IF MOD (MyNum, 2) != 0 THEN 

9 DBMS_OUTPUT . PUT_LINE ( ' The Odd Number 

10 End IF; 

11 MyNum := MyNum +1; 

12 END LOOP; 

13* END; 

SQL> / 

Procedure created. 



SQL> — EXEC OddNumber (10, 20) — POSITIONAL Notation 
SQL> EXEC OddNumber (10, 20) 



The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 



11 

13 

15 

17 

19 



PL/SQL procedure successfully completed. 

SQL> EXEC OddNumber (20, 10) 

PL/SQL procedure successfully compl e 

SQL> — EXEC OddNumber (Num2 => 2(ViW^ml => 10) — NAMED Notation 
SQL> EXEC OddNumber (Num2 => 20, ■ 10) 




The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 



11 

13 

15 

17 

19 






\ 






rc 









PL/SQL procedure srP 



fully completed. 



SQL> EXEC Od' 
BEGIN OddN 




> 



r (10) 
END; 



ERRORf + atOlne 1 : 

ORA-C )655C lit+4-ine 1 , column 7 : 

PLS-i03(Jw-: wrong number or types of arguments in call to ' ODDNUMBER ' 
OlAulSiBO : line 1, column 7: 

|SCfc : Statement ignored 



3QL> cl scr 

SQL> CREATE OR REPLACE PROCEDURE 
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2 OddNumber (Numl NUMBER, Num2 NUMBER DEFAULT 20) 

3 IS 

4 MyNum NUMBER ( 4 ) ; 

5 BEGIN 

6 MyNum : = Numl ; 

7 WHILE MyNum < Num2 LOOP 

8 IF MOD (MyNum, 2) != 0 THEN 

9 DBMS_OUTPUT . PUT_LINE ( ' The Odd Number : 'IIMyNum); 

10 End IF; 

11 MyNum := MyNum +1; 

12 END LOOP; 

13 END; 

14 / 



Procedure created. 



SQL> EXEC OddNumber (10) 



The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 



11 

13 

15 

17 

1 



PL/SQL procedure successfully 



SQL> EXEC OddNumber (15, 



The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 




:ully completed. 



PL/SQL procedure si 

SQL> CREATE OR^^LACE PROCEDURE 

2 0 ddNui^e^^W NUMBER DEFAULT 10, Num2 NUMBER DEFAULT 20) 

3 IS ^ 

4 MyNum NUHKR (4) ; 

5 

6 Numl; 

7 fwHras MyNum < Num2 LOOP 

MOD (MyNum, 2) != 0 THEN 



f p BMS_OUTPUT . PUT_LINE ( ' The Odd Number : ' | | MyNum) ; 

„ >^ End IF . 



i 1*1 MyNum : = MyNum +1; 
i +4- fr d’ 12 END LOOP; 

13 END; 

14 / 
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Procedure created. 



SQL> EXEC OddNumber 
The Odd Number : 11 
The Odd Number : 13 
The Odd Number : 15 
The Odd Number : 17 
The Odd Number : 19 



PL/SQL procedure successfully 



SQL> EXEC OddNumber (5) 
The Odd Number : 5 

The Odd Number : 7 

The Odd Number : 9 

The Odd Number : 11 

The Odd Number : 13 

The Odd Number : 15 

The Odd Number : 17 

The Odd Number : 19 



PL/SQL procedure successfully 






SQL> EXEC OddNumber (5, 15) 



The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 
The Odd Number 



ly completed. 

SQL> <<FindEmp>> < 

2 DECLARE 

3 T Emgro jMJ ME R : = & I_Empno ; 

4 0_E n a^hri^RCffAR 2 ; 

5 0 Job VASOJAR2 ; 

6 

7 Ename, Job INTO 0_Ename, 0_Job 

8 lFR^^ Emp 

O A). WHERE Empno = I_Empno; 

if 1 c Q bBMS_OUTPUT ■ PUT_LINE ( 'The Data of ' | | I_Empno | | ' is ' | | 0_Ename | | 
U 1^1 Job) ; 

El EXCEPTION 

12 WHEN NO_DATA_FOUND THEN 

13 DBMS_OUTPUT . PUT_LINE ( ' Error in Finding the Details of Employee 
Number : ' | | I_Empno) ; 
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14 END FindEmp; 

15 / 

Enter value for i_empno : 7835: 
0_Ename VARCHAR2 ; 

ERROR at line 4: 



ORA- 06550 
PLS-00215 
ORA- 06550 
PLS-00215 



line 4, column 10: 

String length constraints must be in range (1 
line 5, column 8: 

String length constraints must be in range (1 



SQL> ED 

Wrote file afiedt.buf 

1 <<FindEmp>> 

2 DECLARE 

3 I_Empno NUMBER := &I_Empno; 

4 0_Ename VARCHAR2 (10) ; 

5 0_Job VARCHAR2 ; 

6 BEGIN 

7 SELECT Ename, Job INTO 0_Ename 

8 FROM Emp 

9 WHERE Empno = I_Empno; 

10 DBMS_OUTPUT . PUT_LINE ( ' The O^At^f ' | ! I_Empno | | 




is 'll 0_Ename | | 



o 



' I I 0_Job) ; 

11 EXCEPTION 

12 WHEN NO_DATA_FOUND THE^A tT 

13 DBMS_OUTPUT.PUT_LINE ( % lfrr%i i r-' in Finding the Details of Employee 

Number : ' | | I_Empno) ; -J+, '*%. 

14* END FindEmp; + -ut 

sql> / 4^* 

Enter value for i_aiijlnc|: 7839 
0_Job VARCHAR2 ; a +jT 

ERROR at lijrfet^^+h 

ORA- 0 6550: Jiipej5 , ■•column 8: 

PLS-0021 5-: St^mg length constraints must be in range ( 1 . . 327 67) 
SQL>^ED 7*4 

W^%Xjfle af iedt . buf 

1 <<FindEmp>> 

DECLARE 

3 I_Empno NUMBER := &I_Empno; 

4 0_Ename VARCHAR2 (10) ; 

5 0_Job VARCHAR2 (10); 
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6 BEGIN 

7 SELECT Ename, Job INTO 0_Ename, 0_Job 

8 FROM Emp 

9 WHERE Empno = I_Empno; 

10 DBMS_OUTPUT . PUT_LINE ( ' The Data of ' ! ! I_Empno | | ' is ' | | 0_Ename | ! 

' I I 0_ J ob ) ; 

11 EXCEPTION 

12 WHEN NO_DATA_FOUND THEN 

13 DBMS_OUTPUT . PUT_LINE ( ' Error in Finding the Details of Emplc 

Number : ' | | I_Empno) ; 

14* END FindEmp; 

SQL> / 

Enter value for i_empno : 7839 
The Data of 7839 is KING, PRESIDENT 

PL/SQL procedure successfully completed. 

SQL> / 

Enter value for i_empno : 7788 
The Data of 7788 is SCOTT, ANALYST 

PL/SQL procedure successfully completed . * 




SQL> cl scr 



10 



SDU 

R *V \ 



SQL> CREATE OR REPLACE PROCEDUF 
2 FindEmp 
( 

I_Empno IN NUMBER, 

0_Ename OUT VARCHARJ 
0_Job OUT VARC^R^^i# 

BEGIN a +4X 

SELECT Enma Job INTO 0_Ename, 0_Job 

1 1 FROM Empno = I_Empno; 

12 EXCEPT TMl V 

13 WHEN N0jWfA_E0UND THEN 

14 ^ME^fcuTPUT . PUT_LINE ( ' Error in Finding the Details of Employee 
Numb^ + -ti I_Empno) ; 



15 




%FindEmp; 



a* 






^ocedure created. 

QL> VARIABLE BEname VARCHAR2(15) 

SQL> VARIABLE BJob VARCHAR2(15) 

SQL> EXEC FindEmp (7839, :BEname, :BJob) 
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PL/SQL procedure successfully completed. 

SQL> PRINT BEname 

BENAME 

KING 

SQL> PRINT BJob 
BJOB 

PRESIDENT 

SQL> SELECT : BEname, :BJob FROM DUAL; 

: BENAME : BJOB 

KING PRESIDEN 



A : BJob ) 

: Emploihse Nmb 



'V '<1 



SQL> EXEC FindEmp (2234, : BEname 

Error in Finding the Details of EmplCty^p Nttmper 
PL/SQL procedure successfully cc^rfi^^d. 

SQL> DECLARE ♦ ' 

2 V_Ename Emp . Ename%TYPE ; , , + + + +r 

3 V_Job Emp. Job%TYPE; 

4 BEGIN 

5 FindEmp (7839, V E^ajfte^W^_Job) ; 

6 DBMS_OUTPUT . Pa^LINEf* Employee 7839 is 
' | | V_Job M'.'); T3+ t+t i 

7 END; 

8 / 

Employee 7 
PL/SQL prnced 

e 




2234 





7 



| | V_Ename II', 



KING, PRESIDENT, 
successfully completed. 



SQL> El*y 
Wrott f. Ae af iedt . buf 



*■ f j t)E CLARE 

2 V_Empno Emp . Empno%TYPE := SGEmpno; 
V_Ename Emp . Ename%TYPE; 

4 V_Job Emp . Job%TYPE; 

5 BEGIN 

6 FindEmp (V_Empno, V_Ename, V_Job) ; 



o 
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